home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / retota.src < prev    next >
Text File  |  1991-10-19  |  2KB  |  82 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ RETOTA, by Jeremy Smith
  3. \<< 1 \-> x
  4.   \<< LCD\-> PICT STO {# 0h # 0h } PVIEW 4 SF 1 SF
  5.     WHILE x
  6.     REPEAT 3
  7.       IF FS?
  8.       THEN 2
  9.         IF FS?
  10.         THEN "up" DROP PICT { # 0h # 0h } { # 82h # 0h } SUB
  11.         PICT { # 0h # 1h } { # 82h # 3Fh } SUB
  12.         PICT { # 0h # 0h } ROT REPL
  13.         PICT { # 0h # 3Fh } ROT REPL
  14.         ELSE "down" DROP
  15.         PICT { # 0h # 3Fh } { # 82h # 3Fh } SUB
  16.         PICT { # 0h # 0h } { # 82h # 3Eh } SUB
  17.         PICT { # 0h # 1h } ROT REPL
  18.         PICT { # 0h # 0h } ROT REPL
  19.         END
  20.       END 4
  21.       IF FS?
  22.       THEN 1
  23.         IF FS?
  24.         THEN "right" DROP
  25.         PICT { # 82h # 0h } { # 82h # 3Fh } SUB
  26.         PICT { # 0h # 0h } { # 81h # 3Fh } SUB
  27.         PICT { # 1h # 0h } ROT REPL
  28.         PICT { # 0h # 0h } ROT REPL
  29.         ELSE "left" DROP
  30.         PICT { # 0h # 0h } { # 0h # 3Fh } SUB
  31.         PICT { # 1h # 0h } { # 82h # 3Fh } SUB
  32.         PICT { # 0h # 0h } ROT REPL
  33.         PICT { # 82h # 0h } ROT REPL
  34.         END
  35.       END
  36.       IF KEY
  37.       THEN
  38.         CASE DUP 25 ==
  39.           THEN DROP 3
  40.             IF FS?
  41.             THEN 2
  42.               IF FS?
  43.               THEN
  44.               ELSE 3 CF
  45.               END
  46.             ELSE 3 SF 2 SF
  47.             END
  48.           END DUP 35 ==
  49.           THEN DROP
  50.             IF 3 FS?
  51.             THEN
  52.               IF 2 FS?
  53.               THEN 3 CF
  54.               END
  55.             ELSE 3 SF 2 CF
  56.             END
  57.           END DUP 36 ==
  58.           THEN DROP 4
  59.             IF FS?
  60.             THEN 1
  61.               IF FS?
  62.               THEN
  63.               ELSE 4 CF
  64.               END
  65.             ELSE 4 SF 1 SF
  66.             END
  67.           END DUP 34 ==
  68.           THEN DROP 4
  69.             IF FS?
  70.             THEN 1
  71.               IF FS?
  72.               THEN 4 CF
  73.               END
  74.             ELSE 4 SF 1 CF
  75.             END
  76.           END 'x' DECR DROP DROP
  77.         END
  78.       END
  79.     END 1 2 3 4 CF CF CF CF
  80.   \>>
  81. \>>
  82.